home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_166_soundList.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  734 b   |  19 lines
  1. global colorauthoringpath
  2. set cursor to watch
  3. put the  long name of this stack into where
  4. delete word 1 of where
  5. delete char 1 of where
  6. delete last char of where
  7. if there is a window "Sounds List" then close window "Sounds List"
  8. put  FullResList("T=snd ", "O=TNIS" ,"W=" & where) into resdata
  9. if resdata is empty then
  10. answer "There are no sounds in this stack."
  11. do restext ("TEXT", "Exit", colorauthoringpath)
  12. end if
  13. if word 1 of resdata is "Error" then
  14. answer resdata
  15. do restext ("TEXT", "Exit", colorauthoringpath)
  16. end if
  17. do sort resdata
  18. if the number of lines of resdata is 1 then put return & "       " after line 1 of resdata
  19. Listoid "Sounds List",resdata, "one","Double click it :","green,white", "Chicago", "12", "0" , "0, 190"